Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/killth1a/spel.frm

Visual Basic Form | 1999-09-16 | 37KB | 1,313 lines

VERSION 5.00
Begin VB.Form frmspel
   AutoRedraw      =   -1  'True
   BackColor       =   &H0042FF42&
   Caption         =   "PRESS F5 TO START NEW GAME"
   ClientHeight    =   6525
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8970
   Icon            =   "Spel.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   6525
   ScaleWidth      =   8970
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.TextBox txtInfo
      BackColor       =   &H0000FF00&
      Enabled         =   0   'False
      Height          =   285
      Left            =   4200
      TabIndex        =   4
      Top             =   5760
      Width           =   2175
   End
   Begin VB.Timer TimerT
      Interval        =   1000
      Left            =   5760
      Top             =   3720
   End
   Begin VB.TextBox txtTime
      BackColor       =   &H0000FF00&
      Enabled         =   0   'False
      Height          =   285
      Left            =   4320
      TabIndex        =   3
      Text            =   "Time past:"
      Top             =   6240
      Width           =   2175
   End
   Begin VB.Timer Timer4
      Enabled         =   0   'False
      Interval        =   100
      Left            =   5160
      Top             =   3720
   End
   Begin VB.TextBox txtkills
      BackColor       =   &H0000FF00&
      Enabled         =   0   'False
      Height          =   285
      Left            =   2160
      TabIndex        =   1
      Text            =   "Kills : 0"
      Top             =   6240
      Width           =   2175
   End
   Begin VB.Timer Timer3
      Interval        =   1
      Left            =   4560
      Top             =   3720
   End
   Begin VB.Timer Timer2
      Interval        =   50
      Left            =   4560
      Top             =   4200
   End
   Begin VB.TextBox txtbullets
      BackColor       =   &H0000FF00&
      Enabled         =   0   'False
      Height          =   285
      Left            =   0
      TabIndex        =   0
      Text            =   "Bullets Left :"
      Top             =   6240
      Width           =   2175
   End
   Begin VB.Timer Timer1
      Interval        =   100
      Left            =   5160
      Top             =   4200
   End
   Begin VB.Label lblVictory
      BackColor       =   &H0042FF42&
      Caption         =   "VICTORY !!!"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   1440
      TabIndex        =   6
      Top             =   1560
      Width           =   2895
   End
   Begin VB.Label lblreloading
      BackColor       =   &H0042FF42&
      Caption         =   "RELOADING..."
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   1935
   End
   Begin VB.Label lblGameOver
      BackColor       =   &H0042FF42&
      Caption         =   "GAME OVER"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   4200
      TabIndex        =   2
      Top             =   2760
      Width           =   2895
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   21
      Left            =   480
      Picture         =   "Spel.frx":030A
      Top             =   3360
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   20
      Left            =   240
      Picture         =   "Spel.frx":069F
      Top             =   3360
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   19
      Left            =   960
      Picture         =   "Spel.frx":0A34
      Top             =   3120
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   18
      Left            =   720
      Picture         =   "Spel.frx":0DC9
      Top             =   3120
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   17
      Left            =   480
      Picture         =   "Spel.frx":115E
      Top             =   3120
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   16
      Left            =   240
      Picture         =   "Spel.frx":14F3
      Top             =   3120
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   15
      Left            =   960
      Picture         =   "Spel.frx":1888
      Top             =   2880
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   14
      Left            =   720
      Picture         =   "Spel.frx":1C1D
      Top             =   2880
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   13
      Left            =   480
      Picture         =   "Spel.frx":1FB2
      Top             =   2880
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   12
      Left            =   240
      Picture         =   "Spel.frx":2347
      Top             =   2880
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   11
      Left            =   960
      Picture         =   "Spel.frx":26DC
      Top             =   2640
      Width           =   270
   End
   Begin VB.Image ShootRight
      Height          =   255
      Left            =   2520
      Top             =   4320
      Width           =   255
   End
   Begin VB.Image ShootLeft
      Height          =   255
      Left            =   2040
      Top             =   4320
      Width           =   255
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   10
      Left            =   720
      Picture         =   "Spel.frx":2A71
      Top             =   2640
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   9
      Left            =   480
      Picture         =   "Spel.frx":2E06
      Top             =   2640
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   8
      Left            =   240
      Picture         =   "Spel.frx":319B
      Top             =   2640
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   7
      Left            =   960
      Picture         =   "Spel.frx":3530
      Top             =   2400
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   6
      Left            =   720
      Picture         =   "Spel.frx":38C5
      Top             =   2400
      Width           =   270
   End
   Begin VB.Image gif
      Height          =   210
      Index           =   5
      Left            =   480
      Picture         =   "Spel.frx":3C5A
      Top             =   2400
      Width           =   270
   End
   Begin VB.Image g